home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / constructions / golden.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.1 KB  |  29 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.383152, -0.125, .invisible, "1");
  3. v2 = .free(0.179348, -0.125, .invisible, "2");
  4. l1 = .l.vv(v1, v2, .invisible, .longline);
  5. c1 = .c.vv(v1, v2, .invisible);
  6. l2 = .l.vlperp(v1, l1, .invisible, .longline);
  7. v7 = .v.lc(l2, c1, 2, .invisible, .plus);
  8. l3 = .l.vlpar(v7, l1, .invisible, .longline);
  9. l4 = .l.vlpar(v2, l2, .invisible, .longline);
  10. v9 = .v.ll(l3, l3, .plus);
  11. v10 = .v.ll(l3, l4, .invisible, .plus);
  12. v11 = .v.vvmid(v1, v2, .invisible, .plus);
  13. c2 = .c.vv(v11, v10, .invisible);
  14. v12 = .v.lc(l1, c2, 1, .invisible, .plus);
  15. v13 = .v.lc(l1, c2, 2, .invisible, .plus);
  16. l5 = .l.vv(v11, v10, .invisible);
  17. l6 = .l.vlperp(v13, l1, .invisible, .longline);
  18. v14 = .v.ll(l3, l6, .invisible, .plus);
  19. l7 = .l.vv(v1, v13, .green);
  20. l10 = .l.vv(v13, v14, .green);
  21. l11 = .l.vv(v14, v7, .green);
  22. l12 = .l.vv(v7, v1, .green);
  23. .text("The Golden Section:");
  24. .text("");
  25. .text("This example shows the construction of the golden section (a");
  26. .text("ratio of 1:(1+sqrt(5))/2).  The rectangle in green is a golden");
  27. .text("rectangle, and invisible lines can be turned on to see the");
  28. .text("contruction.");
  29.